﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class ProdfamFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As ProdfamBE
        Dim tmpProdfam As ProdfamBE = New ProdfamBE()
        Try
            With tmpProdfam
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .Familia = convertDTFromDb.ConvertString(dr.Item("Familia"))
            End With
            Return tmpProdfam
        Catch ex As Exception
            Throw
        Finally
            tmpProdfam = Nothing
        End Try
    End Function
End Class
